Attribute VB_Name = "jName"
Function NameExists(findName As String) As Boolean
    Dim rng As Range
    Dim myName As String
    On Error Resume Next
    myName = ActiveWorkbook.Names(findName).name
    If Err.Number = 0 Then NameExists = True
End Function
Function DelName(name As String) As Boolean
    If (NameExists(name)) Then
    ActiveWorkbook.Names(name).Delete
    End If
    DelName = True
End Function
